home *** CD-ROM | disk | FTP | other *** search
GW-BASIC | 1987-05-06 | 338 b | 18 lines |
- 10 SCREEN 1,1
- 20 COLOR 0,1
- 30 KEY OFF
- 40 CIRCLE (160,100),80,2,0,3.14
- 50 CIRCLE (100,100),20,2,3.14,6.28
- 60 CIRCLE (180,100),60,2,0,3.14
- 70 PAINT (100,70),3,2
- 80 PSET (80,110)
- 90 CIRCLE (160,110),80,2,3.14,6.28
- 100 CIRCLE (140,110),60,2,3.14,6.28
- 110 CIRCLE (220,110),20,2,0,3.14
- 120 PAINT (10,11),1,2
- 130 LOCATE 1,1
- 140 INPUT "Press ENTER to continue-";ANS$
- 150 SCREEN 0
- 160 WIDTH 80
- 170 KEY ON
-